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= Main ACP Loop and misc. subtuatinns 


NETTRN 16-SEP-1984 01:29:26 VAX/VMS Macro v04-00 Page 0. 
Table of contents 
(1) 44 HISTORY 
(2) ECLARATIONS 
(3) 1 Major NETACP work i gap ne en Loop 
(5) $ WOESRESET_TIM = Cancel and reset timer 
(g) 94 WQESCANCEC_TIM = Cancel work timer 
(7) 446 WOESTIMER_AST = Work timer AST 
(8) 501 WOESINSQUE = Insert WQE into work queue 
(9) 523 WQESREMQUE - Dispatch next work element 
(10) 547 WQESALLOCATE = Allocate a work element 
(11) 578 WOQESDEALLOCATE = Deallocate a work element 
(1g) 608 WQESFORK = Switch to work queue Level 
(13) 663 AH - Get use of wert ter buffer 
(14) 687 NETSBINZASC = Convert binary to ASCII 
(15) 721 NETSJNX_CO = Journalling routine 
(16) 788 Pool allocation routines 
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TRU werrRe - ,Main ACP loop and misc. subroutines 
DEFAULT DISPLACEMENT, WORD 


—mPARAARRRAARARBAAAAARAAASAALALA LALA SARAS ALARA ARSASAS AAS A SALAS ARS A SALES ARSE ESS SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


hal io’ ‘arti fs at cite er A ‘oe — MAY BE USED AND cor tee 


;* e 
-* * 
*® * 
** @ 
** Ea 
-* - 
** Y 
:* * 
** I ® 
;* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ad 
** 7 
;* THE oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* oa 
-* ® 
** % 
-* ¢ 
** * 
** * 
** ea 
* Y 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


COOCOOCOCOCOCOCOOCGVOOOOOOOOOCOoo 


leleleleleleleleleleleleleleoleolelelelelolo lo} 


0000 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
44 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
444 PARARBAAASLAAALALALALALALALAAALSZAEASRSLERASERASAESARARARAAE SALLE SESE RSE RASS AAS SS | 
0000 
0000 
0000 
0000 + 
FACILITY: NETWORK ACP 
ABSTRACT: 
0000 
0000 This module processes the work, timer, and AQB queues. It also 


provides utility routines such as buffer management and timer/work 
queue element routines. 


ENVIRONMENT: 

MODE = KERNEL 

-SBTTL HISTORY 
AUTHOR: SCOTT G. DAVIS, CREATION DATE: 20-APR-77 
: MODIFIED BY: 


: v0007 —-RNGO007 Rod Gamache 14-Feb-1984 
3 Remove reference to $XWBDEF. Add decrement of transport 


Sete Ge Ge G. Ce Ge Se Ge Be Se Se Se 


entries removed from AQB queue. 
Fix definitions of WQE. 


v006 TMHOO006 Tim Halvorsen 06-Apr-1983 
Make pool automatically expand when allocation fails. 


NOAM EWAN @ O ODA MEW 0 OD NAME WP 9 OD NOUN EWN SO OONOA UNE WW OOONOUE win 


Oooo 
ooo 
ooo 
ooo 
PUPP Be BB BB BB EB AAAI NNN Innonononononononons 


OOoOooooooooooooooo 
SOoOoCOCoOoCOCOOoOSoSoOOoSoooeoo 
SOOoOOoOoooooooooooooo 
COOCOCOCOCOCOCOCOOOOooooo 


Pre-zero pourens 3 ae buffer before filling it in. 
0000 


Remove all explicit yp ok vee mode specifiers 

and make default word addressing mode. : 
Make all references to VMS exec general addressing. 
Use SETBIT and CLRBIT macros where ever possible. 


ze | 
in ACP loop and misc. subroutines 16-SEP-1984 01:29: AX/VMS Macro V04-00 P 
ORY . phon: Bre ee 158 GoiSr ice NCTA. CRETMET SRN MAR: a! hy 
} 
28 3 v005 TMHOOOS Tim Halvorsen 05-Mar-1983 
: Dispatch all incoming IRPs with the PHYSIO flag set 
4 ¢' : to DLE module for processing. 
000 62: v004 — RNGOD04 Rod Gamache 26-Jan-1983 | 
444 65 ; Fix the WETSDEALLOCATE routine to not save 
00 64 ; the caller's address in the deallocation block, 
44 o? ; until it knows there is a block to deallocate! 
0000 «67: vO0O3. —«- TMHO003 Tim Halvorsen 16-Sep-1982 
0000 68 ; Double size of journal record, and add an 8 byte 
44 : timestamp to the beginning. | 
0000 71; vo02  TMHODO2 Tim Halvorsen 06-Jul-1982 
0000 72; Change where Journal Ling gets the address of 
0900 +e the journal buffer (rather than using the Local 
ttt 74 : LPD). 
0000 : vOO1  TMHOOO1 Tim Halvorsen 13-Apr-1982 
0000 3 change ped naming conventions. 
444 ; Add WQESFORK routine. 
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64-000 ARATIONS : : g- Tatts 1 }:g9:26 ENETACE. SRCJNETTRN.MAR; 1 — 


: .SBTTL DECLARATIONS 
: INCLUDE FILES: 


DEF 


TNH ew Se ee ee ee ee Bs Be Be | 


SXMDEF 


: Add extensions to the WQE for timer entries 
; SDEFINI WOE 


-= WOESC_L 

ASSUME QUESC. Lengrats EQ 0 ; Assume that we start longword aligned 
SDEF WwOE$Q a UE. TIME ; Due time 
SDEF WOQESC_TMR_LEN Length of timer WQE 
SEQU WQESC” “EXT “CEN <. “WESC _LENGTH> ; Length of the timer WQE Extension 


00 
00 
00 
00 
00 
00 
00 

00000024 00 
00 
00 
00 
00 
00 
00 SDEFEND WQE 
00 


00000021 0000 NETSC_DYN_WOQE == 33 ; Dummy type code for WQE's 

0000000F 0000 = “xF ; Buffer rounding mask 

00002800 444 POOL_EXTEND = 20*512 ; Automatic pool expansion by 20 pages 
000 H 
000 : OWN STORAGE: 


-PSECT NET_PURE ,NOWRT,NOEXE,LONG 

RANGE: .LONG 0 : ner % tor working-set purge 
-LONG <1831>-1 
-PSECT NET_IMPURE,WRT,NOEXE,LONG 


: Setup the timer and work queue Listheads. 


ASSUME WOESL_FLINK €EQ 0 
ASSUME WQESL"BLINK £0 & 
ASSUME WOQESW SIZE EQ 8 


MRO ODNOA UNE AID OOO NA UNE WIN 0 OD NA UE WWI $C ODNAU EWN O DOONAN EW OOONO 
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= Main ACP loop and misc. subroutines 16-SEP-1984 01: AX/VMS Macro V04-00 Page 
DECLARATIONS : g- EP=-1 198 63: $3 2 ENETACE. SRCINETTRN. MAR; 1 . 
0 143 ASSUME woe se Tyee —Q 8610 
144 ASSUME WOQESB- €Q 11 
145 ASSUME WQESL-ACTION EQ 12 
; 148 ASSUME WQESL_PM EQ 48 
$ 16 ASSUME WQESL-PM2 EQ 2 
$0 128 NETS$GQ_WQE_WORK:: ; ACP work queue Listhead 
00000000' 44 139 -ADDRESS . 3; Listhead 
00000000" 0004 151 -ADDRESS .-4 ; 
0000 0008 12 «WORD 0 ; Zero the size field to bugcheck 
O0OA 15 3 on attempted deallocation 
1 Bea 136 -BYTE NETSC_DYN.WOE  ; resore tre 
0 0B 155 -BYTE WQE$C”~SUB BAS ri 
0000024 900¢ 156 “BLKB © <NETSCO-UDE WORKSWOESC LENGIID~- S Make this @ full WOE 
00 4 158 NET$SGQ_WOE_TIMR:: ; ACP timer queue Listhead 
00000024" 0024 159 «ADDRESS . ; Listhead 
00000024" 0028 160 -ADDRESS .-4 
0000 O002C 161 «WORD 0 ; Zero the size field to bugcheck 
002E 16¢ 3; on attempted dea location 
1 QO2E 16 “VTE NETSC_DYN_WOQE te be DPE 
OO2F 164 BYTE WQE$C”~SUB BA type i 'b 
00000050 0030 165 “BLKB <NET$GO_WOE “Timeiwaesc. R _LEND=. : “fake this a full WQE 
44 166 3 for Timer use. 
00000000 Beee 198 NET_TIMER: -LONG 0 ; Low bit used to signal timer AST 
00000000 170 -PSECT NET_CODE,NOWRT,EXE 
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+ ABs: - Main ACP loo 
v04-000 Major NETACP work dispatching Loop “SEP-1984 NETACP.SRCINETTRN.MAR; 1 
17 ae -SBTTL Major NETACP work dispatching loop 
Vee ; NETSDISPATCH = Purge working set and dispatch whatever work there is to do 
126 ; FUNCTIONAL DESCRIPTION: 

178 : The work queve must be serviced before servicing the AQB queue. This is 
000 179 ; because servicing a given AQB or WOE entry may result directly result in a 
44 : » ; WQE being queued but will not directly result in an AQB entry being queued. 
00 1 ¢ : The WOE entries are outline above. The AQB entries are either IRPs or 
3° ! : NET buffers as follows: 
308 18 ; The DLE IRPs must be dispatched if the IRPSV_PHYSIO flag is set 
909 187 ; The IRP must be dispatched by its IRPSW_FUNC value: 
000 189; IOS_ACPCONTROL = network management function if IRPSL_SVAPTE 
4 + ; is non-zero; SCANCEL function otherwise. 
44 1° : 10$_ACCESS - logical-Link connect or direct-Line access 
4 ; 10$_DEACESS - logical-Link disconnect or direct-line deaccess 
000 196: 10$_DELETE - datalink has gone inactive 
ae 
4 ° : The NET buffer header format is that of WQE contains the following: 
909 20 : WOESB_EVT - One of the following: 
000 03 ; NETMSGSC_TR - a Transport control message 
000 ; NETMSGSC_ILL = an illegal message 
000 05 ; NETMSG$C_UNK = an unknown message 


NAVE WN 9 OD NAMES WIN $0 ODNOAULS WN $0 O@NOUS WN oO 


44 $8 NETMSGSC_IRP - a datalink has gone down 
si 3 WQESW_PTH - The LPD path i.d. of the datalink 
000 210 NETSDISPATCH:: : Major NETACP work dispatching loop 
s'e4 ! SPURGWS_S RANGE ; Purge the working set 
si : : Drain the scratch buffer queue 
O00'CF D4 908 15 GO: CLRL = NETSGL_FLAGS : Clear internal flags 
50 000 ' DF OF OF 1 REMQUE @NET$GO_TMP_BUF ,RO ; Get then next buffer 
05 1D 0014 1 BVS : Br if queue is empty 
0110° 30 33 1 BSBW NE TSDEALLOCATE : Deallocate it 
FO. O11 Bie 1 BRB GO ; Loop for next buffer 
O18 : Process any work queue entries 
03 0050'CF 00 €7 0018 50$: BBCCI #0,NET_TIMER,70$ : If BS then timer AST occurred 
O1A2 0 1 BSBW TIMER _EXP ; Service the timer 
92¢6 0 4 70$: BSB WOE SREMQUE : Get and process next waiting WQE 
—E1 50 + €8 z BLBS RO,GO :; If LBS keep going 
A : Process any AQB entries 


3 | 
= Main ACP loop and misc. subroutines a a Seth 9 93:59:26 os Macro V04-00 Page g 
Major NETACP work dispatching loop “SEP-1984 02:21:4 NETACP.SRCINETTRN.MAR; 1 (3). 
52 0090" cE pO MOVL —— NETSGL_PTR_AQB,R2 ; Get address of queue head 
53 B2 OF REMQUE @AQBSL-ACPOFL(R2),R3 =; Try to get a packet | 
4C 610 ; If VS queue is empty 
7C'AF «o9F PUSHAB 8*200$ ; Set up return for dequeuing 
SDISPATCH IRPSB_TYPE(R3),TYPE=B,- 
ror 3 type ; action 
<DYNSC_IRP PROC_IRP>,- ; Process an IRP 
<DYNSC_NDB we TSPROC x >,~ ; Process and XwB 
<DYNSC_NET 100$>,- ; Process a transport request 


. <DYNSC_CXB 90$>,- ; Process a counted transport request 


80S: BUG_CHECK NETNOSTATE,FATAL ; Bad request packet/bad AQB count 


OSOOCCGCCOCOC COSCO SCOSOOOOOCOOOCOOOoOOOoOo 
00090909 09 SI NIN SNS NN IA AAA OA NINA ANNA AIA 
NOUS WN O OONAUE WN O OONOUSWN-O”O 


CS MOO ODOMOE NNAWDWDOOODODOVIW™ S 


PRIPIPIPIPIPONININININYININYNINININPYININPININPINPINININININPININY 


SDOOOCOOOOOCOOOOOOOOOOSOOSOOOOOooO 


4 
4 
t 
O'CF dO 44 90$: MOVL NETSGL_PTR_VCB,RO ; Get RCB address 
9cO 97 4 DECB RCB$B_AQB_CNT(RO) ; One less transport element on queue 
Fl 19 4 BLSS > Br if bad count 
17 +90 4 MOVB #DYNSC_NET, IRPSB_TYPE(R3) ; Set the real buffer type 
53 g0 48 100$: MOVL :; Copy buffer address for call 
FFBG' 31 4 BRW NETSOLL_RCV : Process the message 
FF81" 30 5 
BA so : 3; Loop 
: : Go to sleep, my baaaby 
56 3008:  $HIBER_S ; Hibernate 
5 BRB GO 


| 

| 

| 

200$: BSBW NETSDEC_TRANS ; Decrement the transaction count | 
SRB GO 

; Loop 

| 


; 


om 
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8 A 59 PROC_IRP: ; Process IRP 


A 60 3 
A 61 3 If the PHYSIO bit is set, then it is a DLE IRP, and must be 
° 86 3 passed directly to the DLE module. 
08 «ES A 264 &ecc #1RP SV PHYSIO ; If PHYSIO flag is set, 
03 2a S$ 8c 565 WSTS(R3) 5S ¥ 
FF6E* 31 O8F 66 BRwW sresorepatcn ; Give it to DLE module 
03 44 3 It's a normal logical Link IRP 
55 ICA D 03 5$: MOVL ga ogg a ; tet UCB address 
0000'CF 3 pe 9 8 MOVL ageNs TS6L. SAvE UCB ; Save it 
0000' CF 4 + 7 MOVL WETSCL SAVE_JRP 3; Save the IRP address 
00" 7D OOA 7 mova Sages AL ; Init I0SB image 
0000' CF OAg 74 tari USR_STAT : 
00 =«O«EF A 75 EXTZV #IRPS$V_FCOBE,- : 
0: OA7 7 #IRPS$S~FCODE ; 
57 204A QOA8 7 jresu. srUNC CRS) . R7 3; Get function code 
25 10 3 A BSBB 0$ : Dispatch 
QOAD 80 ; Finish IRP (eSave TR - either complece or requeue to driver. 
QOAD 81 ; If the NETSGL_SAVE_IRP is alreaty zero then the ACP has tucked 
QOAD 86 3 away the IRP Somewhere to avoid 1/0 completion. If this is the 
QOAD 8 3; case then either mount or the transaction counts must have been 
Soap Se ; updated so that pool would not be lost due to a premature shutdown. 
53 0000'CF D OQOAD 86 MOVL we rSGL. SAVE_IRP,R3 ; Get IRP 
1D 13 0082 87 BEQL 15$ : If EQL its gone 
55 0000'CF 0 0084 88 MOVL NETSGL_SAVE_UCB, R5 ; Get UCB 
0000'CF D 0089 89 MOVa NET$GQ-USR_STAT,- PF 
38 A3 00BD 90 IRPSL REDIK(RS)” ; Jam back the i/o status 
05 £0 OOBF 91 BBS S*#NETSV_RQIRP, :; Br if packet is to be given 
06 0000'CF 00C1 9 NETSGL “FLAGS, 10$ ; back to the driver 
00000000'GF 17 O0C5 9 JMP G*CcO Spost : Else post it for completion 
00000000'GF 17 OOCB 94 10$: JMP G*EXESINSIOQ ; Queue packet to driver 
05 00D1 95 15$: RSB ; Return to caller 
00D 96 
00D 97 
00D 98 20S: SDISPATCH R7,<- 
00D 99 
00D 00 <10$_ACCESS 30$>,- 
00D 01 <IO$“ACPCONTROL, 40$>.- 
6 ° 08 . <IO$“DEACCESS, 50$>,- 
0000 ' 8F BO O0E4 4 MOVW #SS$_ILLIOFUNC,- : Say “illegal 1/0 function’ 
0000' CF itt 05 NET$GQ -USR_STAT 3 
1D 11 pee 8S BRB 60$ ; Return 
64 4 3 ACCESS function - dispatch to connect processor 
0000'cF 00 FB OED 10 30$: CALLS #0,NETSCONNECT : Do it 
16 «11 OF? M BRB 60$ > Common exit 
18 : ACP Control 
03 €1 OOF4 315 40S: BC #IRPSV_COMPLX,- 


3 
- Main ACP loop and misc. subroutines 16-SEP-1 38+ 93 3$9:28 ares Macro V04-00 Page 8 
Major NETACP work dispatching Loop “SEP-19 2:21: NETACP.SRCJNETTRN.MAR; 1 (4 


DEACCESS function | 
gE TBIT NET$V_RQIRP,- ; Cause packet to be requeued 
| 


oO 
ad 


NETSGL/ FLAGS : to driver 
RSB ; Done 


05 2A A3 Fg 1 IRP$SW_STS(R3),45$ ; If BC then 1/0 rundown 

FFOS' 70 1 BSBW N TStOntROe 010 ; Process control function 

¢ 1 1 BRB 3; Complete 1/0 one et yrs iy 

18 A3 1 CA 19 45$ BICL #1, IRP$L_WIND(R3) ; Clear interlock bit | 
; IO$_ACCESS or “Tos. DEACCESS. is pending 

FEFB’ 30 BSBW WETSACP CANCEL 3 Do Cancel-related work 

BRB 50$ ; Requeve packet to driver 
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and misc. subroutines 
Cancel and reset timer 


WAIT: 


10$: 


20$: 


3¢ 

3 WOESRESET_TIM 

; FUNCTIONAL DESCRIPTION: 

: The WOE timer and work 

> WOESB_EVT,WQE$B_QUAL an 

3 reset as specified. 

: INPUTS: 

: OUTPUTS: 

WOESRESET_TIM:: 
POSHR 


SSEp=1984 02:51:47 


AX/VMS Macro V04-00 Page 
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-SBTTL WQESRESET_TIM = Cancel and reset timer 


= Cancel and reset timer 


ueuve ar ar 


e search 
WQES_REQIDT fi 


ed and all entries which match the 
elds are deleted. 


The timer is then 


new delay 
en the timer expir 


call wh es 
UAL ,WOESW_REQIDT (EVT in Low byte) 


Cancel and reset timer 


Cancel all matching entries 
Set new timer 


R3,R4 Quadword 100 nsec 
Re Action routine to 
R1 WQESB_EVT ,WwQE$8_Q 
RO Scratch 
ALL registers are unchanged 
S #°M<RO,R1,R2,R3,R4,R5> 
BsB8 WOESCANCEL_TIM ; 


WAIT 
My #*°M<RO,R1,R2,R3,R4,R5> 


; This assumption is made thru-out 


Save reg 


Save regs 

WQE subtype . 
Additional data bytes required 
Allocate the WQE 

Move WQE ptr, if any, to R5 
Recover regs 

Br on error 

Setup action routine address 


ASSUME WQESL_FLINK EQ 0 
PUSHL R5 3 
; Allocate and initialize a Work Queue Element 
PUSHR #*M<R1,R2> 3 
MOVB #WQESC_SUB_TIM,RO 3 
MOVZBL #WQESC_EXT_LEN,R1 3 
BSBW WOESALCOCATE 3 
MOVL R2,R 3 
POPR #*A<R1,R2> : 
BLBC RO, 30 3 
MOVAB TIMER_ACTION,- 3 
WQESL_ACTION(RS) : 


ASSUME WQESL~PM2 EQ 4+WQESL_PM1 
mova 


Wa 

R1,WOESL_PM1 (RS) ; 
: Calculate expiration time and 
mova GTEXESGO_SYSTIME RI 

R1,R 

Re RA 
MOVG R3,WOQESQ DUE_TIME(RS) 
NE Tse WOE_TIMR,RO 
BLBC  WQE$B_SUB(RO) ,20$ 
MOVQ  WOQE$Q DUE TIME (RO) ,R1 
BSBW 3s CMPTIA_32T 


BGTRU 10% 
INSQUE (R5),@4(RO) 


BSBW = SET_TIMER 


Setup action routine and parameter 
insert WQE in time ordered queue 


Get current time 

Add low order Coley 

Add high order with carry 
Setup due time in WQE data 


; Get timer queue Listhead ptr address 


Advance to next entry 

Br if this is the timer Listhead 
Get entry's due time 

New WQE's time is in R3,R4 

Queued WQE's time is in R1,R2 

If GTRU then R3 time may be Later 
Insert current WQE before WQE with 
later expected time 

Reset the timer 


- Main A Pf 


WOQESRESET_ 


55 te | 


1 
1 
1 
1 
1 
1 


1 


: 


4 
4 
66 


: 


ine 
POP 
308: ASB 


Q TIMER ~~ 


3 
nd misc. edren tent 
ancel and reset timer 


R5 


(R2) 


"SrSEb=]ORS 83:80:29 ENETACE.SRESREYPRNcmaR:1 «= P29 (8, 
é poems reg 


3; Timer action routine 
3; Call action routine 
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IM = Cancel work timer mi iset 1 §7:39 :6§ YNETACE P.S SNETTRN.MAR: 1 

3 -SBTTL WQESCANCEL_TIM = Cancel work timer 

89 ; WOESCANCEL_TIM = Cancel timer 

3 3 FUNCTIONAL DESCRIPTION: 
ret ; The WOE timer and work queue are sea d and all entries which match the 
401 ; voEse. EVT, WQESB_QUAL and WQES$_REQ 1DT elds are deleted. WQESB_EVT = 0 
40¢ : matches all events. 
404 ; INPUTS: R1 WOESB_ VT. WQESB_QUAL ,WOESW_REQIDT (EVT in Low byte) 
405 ; RO Scratc 
4 $ ; OUTPUTS: 
rt s RO Clobbered 
409 ; ALL other registers are unchanged 
a1; ¢. ; eeee MUST BE CALLED AT IPL 0 *ee* 
a8 WOESCANCEL TIM:: ; Cancel all matching timer entries 
414 MFBR S*#PRS_IPL,RO : Get current IPL 

415 TSTB RO : Is it zero 

416 BEQL 3$ : If EOL then okay : 
417 BUG_CHECK NETNOSTATE,FATAL ; Else race conditions could exist 
418 3$: PUSAR #*M<R2,R3,R4> ; Save regs 

419 CLRL 3: Nullify event mask 

420 TSTB R1 ; Cancel all ? 

421 BNEQ 5$ : If NEQ then: no 

4 ¢ DECB RS ; Set all low order bits 
423 5$: MOVL NET$GQ_WQE_WORK+4 ,R2 ; Point to last item in che work queue 
424 8SBB ; Remove ail ig entries 
425 MOVL NETS$GQ_WQE_TIMR+4,R2 ; Get Last item in the timer queue 
426 BSBB ; Remove all matching entries 
427 POPR #*M<R2,R3,R4> ; Restore regs 
: RSB 
430 10$: MOVL (R , »R2 ; Chain down the List 
431 208: MOVL (R2),RO ; Get next entry 
$36 CMPB woEse. SUB(RO) ,- ; Is the listhead ? 
43 #WQESC™ _SUB_BAS : 
434 BEQL 0$ ; If EQL then yes, we're done 
oe? CMPB WQESB_SUB(RO) ,- : Is a timer element? 

436 #WQESC"SUB_TIM 3 

437 BNEQ Ay ; If NEQ@ then no, try next element 
438 BICL3 R3,WQESB_EVT(RO),R4 ; Get event longword 

439 CMPL R1,R4 ; Does the event match ? 

440 BNEQ Og. : If not, loop 

441 REMQUE (RO),RO ; Remove the entry 

rei BSBW WQESDEALLOCATE ; Deallocate it 

44 BB 208 ; Loop 

444 30$: RSB 
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T = Work timer AST mio 1 83:39:28 ENETACE.. SREINET TRN. MAR: 1 . 
t¢$ ‘ -SBTTL WQESTIMER_AST = Work timer AST 
ot8 ; WQESTIMER_AST = Receive timer AST 
450 :- 
$2) WOESTIMER_AST:: ; Receive timer AST 
4 4 .@ORD ; Save regs 
45 BBSSI #0,NET_TIMER,10$ ; Flag fact that the AST occurred 
454 108: SWAKE_S ; Wake the ACP 
oe? RET 
637 TIMER_EXP: 
$28 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save regs 
re ASSUME WQESL_FLINK EQ 0 
46 MOVAB NETS$GQ WQE_TIMR,RS ; Get address of TIME queue Listhead 
46 MOVQ WOE$Q_BUE_TIME(R5),.R1 : Get due time 
464 CLRQ WQES$Q_DUE_TIME(R5S) ; Zero due time indicator to indicate 
465 ; that no timer is active 
466 5$: MOVL (R5),RO ; Advance to next element 
46 MOVG WOESG_DUE_TIME(RO).R3 ; Get its due time 
468 BEQL : If EQL then Listhead , 
469 BSBB CMPTIM_321 ; Compare due time to current time 
470 BGTRU 1 ; If GTRU then it must wait 
471 REMQUE (RO),RO ; Else deque the W 
47g BSBB = WOESINSQUE ; and insert it on work queue _ 
47 BRB 5$ 3; Loop for as many WQEs as possible 
474 10$: BSBW SET_TIMER ; Reset the timer 
475 POPR #*MZRO,R1,R2,R3,R4,R5> ; Restore regs 
476 RSB 
477 
478 ; 
479 SET_TIMER: ; Conditionally reset timer 
480 MOVAB NET$GQ_WQE_TIMR,RO ; Get timer queue Listhead ptr 
481 (RO) ,R3 3; Get first timer entry -- it may will 
482 ; be the Listhead if the queue is empty 
483 MOVAB WQESQ DUE TIME(R3),R3 : Get its expiration time address 
484 MOVQ  (R3) ,QQE$SO_DUE_TIME(RO) : Setup new expiration time 
485 BEQL : If EQL then queue is empty 
$36 SCANTIM_S ACMODE = #0,- ; Cancel timer - kernel mode 
48 DT = #0 ; Cancel all timers (there's only one) 
488 10$: SSETIMR_S DAYTIM = (R3),- :; Expiration time 
489 REQIDT = #0,- ; Timer i.d. 
490 ASTADR = WOESTIMER_AST ; AST routine address 
491 BLBC RO,10$ ;!Keep tryin _ ee FIX THIS e* 
492 208: MOVB #1,R0 : Set low bit to indicate success 
rh RSB ; Done 
495 CMPTIM_321: ; Compare R3,R4 to R1,R2 quadwords 
49 CMPL R4,R2 ; Compare high order expected time 
49 BNEQ los ; Condition codes are valid if NEQ 
R3,R1 ; Compare low order expected time 


498 CMPL 
499 10$: RSB 
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-000 VOESINSQUE = insert WE into work queue S-SEP-1984 O2:51:49 ENETACE. SREINEYTRNCMAR: 1 * 
1 .SBTTL WQESINSQUE - Insert WOE into work queue 
2 gi WOESINSQUE = Insert WQE into work queue 
4 ; INPUTS: RO = address of WOE to be inserted 
9 te 
o WOQESINSQUE : Insert WOE into work queue 
0004"DF gE 0889 08 INSQUE (RO), @NETSGO_WOE_WORK+4 : Insert the element. 
Con 10 8 ; If NEQ then not first 
iy SOLSPaTER TYPE=B ,WQE$B_SUB(RO),-; Dispatch by subtype 
i <WQESC_SUB_AST, 10$>,- ; Miscellaneous AST 
0230 14 <wOESC~ “SUB_ TIM, 10$>,- ; Timer AST 
0230 515 <WOQESC"SUB_MBX, 10$>,- ; Mailbox read AST 
8 Hi 218 ‘ <WQESC_SUB_ACP, 20$>,- ; Internal non-AST routine 
8 <3 $18 BUG_CHECK NETNOSTATE,FATAL ; Invalid subtype 
0247 520 10S: SWAKE_S ; Wake-up the ACP 
0S 0252 521 20$: RSB 
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E = Dispatch next work element “-SEP=1984 02:21:4 NETACP.SRCINETTRN.MAR; 1 ( 


n AC 
EMQU Dd 
3 a ~SBTTL WOQESREMQUE - Dispatch next work element 
5 ; WOESREMQUE = Dispatch next work queue entry 
$ : DISPATCH WITH: RS  WQE address 
8 3 Q) 1st WOE parameter | 
, : R2 2nd WOE parameter 
; 1 ; ALL registers nay be destroyed before returning 
5 : WOQESREMQUE: : ; Remove entry form work queue 
0 Be 5 4 CLRL ® 3 In case nothing in queue 
55 0000'DF F 5 5 REMQUE @NETSGQ_WQE_WORK,RS ; Get next work queue entry 
> SA 2 6 BVS 0$ : VS then none 
5c 7 ASSUME WQESL_PM2 £0 4+WOESL_PM1 
51 10 AS 7D 8 5 2 8 MOVQ WQESL_ PM1(R5),R1 
07.) «(91 6 9 CMPB #wOESC_SUB_TIM,- ; Queued by timer? 
0B AS 026 40 WOE$B_SuB(RS) : 
05 12 0264 41 BNEQ 10$ ; If NEQ no 
0266 $s SETBIT NETSV_TIMER,NETSGL_FLAGS ; Set flag to inform action routine 
OC BS 16 0268 543 108: JSB awOe$C_ACTION(RS) ; Dispatch to action routine 
50 01 DO Q26E ete MOVL #1,R0 : Indicate should try again 
05 0271 45 208: RSB 
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hu 000 WOQESALLOCATE > Allocate a work element -SEP=-1984 3:39:28 ENETACP.. SREINETTRN.MAR: 1 . 109 
7 rif ; -SBTTL WQESALLOCATE = Allocate a work element 
a3 ; WOQESALLOCATE = Allocate a work queue element 
f : : FUNCTIONAL DESCRIPTION: | 
, 27 : Allocate and initialize a work queue element. 
7 55 : INPUTS: Re Scratch 
7 2$ 3 Re Byres in data area at end of block 
4 5 ; RO WQE subtype code 
7 38 : OUTPUTS: R2 Address of block 
027 560 ; R1 Garbage 
8 36 : RO Status 
027 8 WOESALLOCATE:: ; Allocate a work queue element 
50 ODD 8 7 286 PUSHL RO ; Save subtype 
51 24 cf 74 65 ADDL #WQESC_LENGTH,R1 ; Get total size 
FE24" 0277 566 BSBW NETSALCOCATE ; Allocate the block 
51 BEDO O27A 567 POPL R1 ; Recover the subtype 
OF 50 9 7D 568 BLBC RO,10$ ; Br on error 
21 90 0280 569 MOVB #NETSC_DYN_WOQE,- ; 
OA A2 0282 570 wOESB TYPETR2) ; Setup the block type 
0B A2 51 90 0284 571 MOVB R1,WQE$B SUB(R2) ; Setup the subtype 
14 AZ D4 0288 322 CLRL WOESL_PM2(R2) ; Initialize some fields  _— 
20 A2 «B44 «(0288 O57 CLRW WOQESW_ADJ_INX(R2) ; DLLTRN wants this to be initially 0 
0 Oser ars se 
O28F 576 108: BUG_CHECK NETNOBUF ,FATAL ; No WQE available 
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EALLOCATE = Deallocate a work eleme met 5:39:28 ENETACP. SREINETTRN MARS 1 . at 
4 4 ; -SBTTL WQESDEALLOCATE - Deallocate a work element | 
? 0 ; WQESDEALLOCATE = Deallocate work queue element | 
3 : ; FUNCIONAL DESCRIPTION: 
9 4 : Deallocate work queue element. This routine calls NETSDEALLOCATE to 
q 5 ; deallocate the block is and is therefore currently unnecessary. It is 
9 § ; used as a possible hook for the furture when it may be used to recycle 
4 , ; a WOE for a waiting caller to WQESALLOCATE. 
8 2 ; ; INPUTS: RO Address of block to be deallocated 
0 3 31 + OUTPUTS: RO Garbage. 
029 298 ; ALL other registers are preserved. 
029 ae : 
029 95 ;:- 
029 596 WQESDEALLOCATE:: ; Deallocate a WQE 
029 597 CMPB #NETSC_DYN_WQE,- : Is this really a WQE ? 
0295 598 wOE$B_TYPE(RO) 3 
0297 599 BEQL ; If so, deallocate it 
0299 600 CMPB #DYNSC_NET,=- ; This type code comes from NETDRIVER 
0 98 601 WOESB_TYPE(RO) > evnets 
60 BNEQ : If NEQ then bug 
8 603 5$: BSBW NETSDEALLOCATE 3: Deallocate the block 
02 ; 
02 606 10$: BUG_CHECK NETNOSTATE,FATAL ; Invalid WQE 
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WOESFORK = Switch to work queue level -SEP-1984 02:21:4 NETACP.SRCIJNETTRN.MAR; 1 (12) 
"' 608 -SBTTL WQESFORK = Switch to work queue level : 
A? $10 ; WOESFORK - Switch to work queue Level | 
A7 o18 ; This routine is called to cause a code sequence to be executed | ‘ 
A? 6135 ; at “work Level’, which is a serial queue of tasks which are executed H 
A? 614 ; at the ACP main dispatch routine. This can be used to defer execution ° 
A? 615 ; of a code sequence to serialize access to a resource or eliminate stack | ‘ 
4 618 ; overflow due to excessive call frames. | ‘ 
v4 o18 ; Inputs: : 
A? 620; 4(SP) = Address of caller's caller : 
A? 621 ; (SP) = Address of routine to execute ‘ 
v4 § : R1/R2 = Arguments passed to routine ‘ 
0 A? 624 : Only R1 and R2 are ‘‘passed’’ to the routine. All other registers 
O2A7 625 ; will not be available at the time the routine executes. If more 
O2A7 626: context needs to be passed, a longer WQE must be allocated to 
8 v4 ? handle such needs. 
4 v4 ? 4 . Uutputs: 
0 ar 631 : RO = success 
9 A? $38 : The WQE is queued and control is returned to the 
O2A7 634 ; caller's caller. 
Soar 8e | 
C2A7 637 WOESFORK:: 
OF BB O2A7 638 PUSHR #*M<R1,R2,R3> ; Save regs 
51 D& QO2A9 639 CLRL R1 : Indicate no extra space needed 
01 0 O2AB 640 MOVL #WQESC_SUB_ACP,RO ; Set WOE a 
FFC1 0 Q2AE 641 BSBW WOESALCOCATE ; Allocate a W 
52 0 0281 o6¢ MOVL R ; Transter address of WQE 
6E 7D 02B4 64 MOVG (SP) ,WOESL_PM1(RO) ; Store routine arguments 
OC AE DO 0288 644 MOVL 12(SP) ,WQESL_EVL_PKT(RO); Set address of user's routine 
CE‘AF 9E O2BD 645 MOVAB B*50$,WQESL_ACTION(RO) ; Set action routine address | 
F64 «330s «O2C 646 BSBW ares ; Queue the work 
OE BA O2C 647 POPR #*M<R1,R2,R3> ; Restore regs 
01 oO O2C 648 MOVL #1,R0 : Set successful 
04 CO O2CA 649 ADDL #4,SP ; Return to caller's caller 
05 O2CdD 650 RSB 
ae 
CE $38 : Come here when the work element is triggered. R1/R2 already setup. | 
cE 68s 
55 DD C $28 50$: PUSHL R5 ; Save WQE address | 
18 B65 16 D 65 JSB @WOESL_EVL_PKT(RS) ; Call user's routine at work level 
D 938 ; ALL registers may be clobbered 
50 8E D 65 POPL RO ; Restore WQE address | 
FFBA 3 8 960 ty WQESDEALLOCATE ; Deallocate the WQE 
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TTRN = Main ACP loop and misc. subro AX/VMS Macro v04-0 P 
64-000 NETSGE : 4 “oll 
. bes es -SBTTL NETSGETUTLBUF - Get use of utility buffer 
+ 685 | : NETSGETUTLBUF - Acquire use of utility ouffer (co-routine) 
DA 687 : FUNCTIONAL DESCRIPTION: 
DA oes : Authorize the use of the play buffer. This is coded as a co-routine 
DA 670 ; $0 that the utility buffer may be automatically released when the requesting 
DA 671 ; routine exits. 
DA or¢ : 
+) of? ; CALLED VIA: 
Of? : BSB NETSGETUTLBUF or JSB NETSGETUTLBUF 
DA £75 i 
DA 978 NE TSGETUTLBUF : ; Acquire use of utility buffer 
06 £2 DA 7 BBSS * S*WNETSV UTLBUF ,- ; Obtain buffer if possible 
09 0000'CF 8 D on NETSGL FLAGS, 10$ 
9E 16 E 681 JSB a(SP) all our caller 
O2E 68¢ ciReIT NETSV. _UTLBUF ,NETSGL_ FLaGé "tree the utility buffer 
05 Oces 683 RSB ; Return to caller's original 
: ca 
O2E9 685 10$: BUG_CHECK NETNOSTATE,FATAL ; UTLBUF is already in use 
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04-000 NETSBINZASC - Convert binary to ASCII iets 83:39:28 ENCTACE. SREINETTRN.MAR; 1 ’ C189) V 
ep i : -SBTTL NETSBINZASC = Convert binary to ASCII | : 
ED ; : 
4 oa ; NETSBIN2ZASC = Convert binary to ASCII string | ° 
ED 63¢ ; FUNCTIONAL DESCRIPTION : 
ED 694: A binary number is converted to its ASCII representation. The most ‘ 
ED 695 ; significant character is stored in the low order byte of the ° 
44 £36 3 destination string. ‘ 
ED 38 : INPUTS: R0 Binary value to be converted : 
4 4 3 RS Pointer to byte to receive most significant ASCII character . 
ED 701 > OUTPUTS: RQ Garbage 
. oe ¢ 3 R3 Pointer to first byte passed the least significant ASCII 
0 ee PR? 3 character 
ED re NETSBIN2ASC:: ; Convert binary to ASCII 
06 BB O2ED 706 PUSHR #*M<R1,R2> 3; Save regs 
51 7?C OQO2EF 707 CLRQ R1 ; Init high order dividend, 
a oe ; character count 
0 F 710 : Note that this algorithm yields an ASCII "0" if RO=0 
52 D6 O2F1 ar 10$: INCL R2 ; Account for char to be moved 
7E 50 50 oA 3 8 4 fi? poly #10,R0,R0,-(SP) ; aoe Cog fast digit 
; Done 
50 HE 30. = C1 asco 715 208: ADDL3 = #*A*'0"', (SP) +,R0 3 Convert digit to ascii 
83 50 90 fe 716 MOVE RO, (R35+ : Move it to dest buffer 
F6 52 «FS «(0301S 717 SOBGTR R2, 3; most significant character first 
06 BA 0304 718 POPR #*M<R1,R2> ; Restore regs 
05 0306 719 RSB 
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NETSJNX_CO = Journal Ling routine BrSEp 19 4 §3:39:29 ENETACP. SREINE? RN.MAR; 1 ce (33) 


v6 


7 .SBTTL NETSJNX_CO = Journalling routine | ; 

4 if § ; NETSJNX_CO = Journalling co-routine ‘ 

7? 725 ; This is common co-routine to facilitate ‘journalling’’. Journalling is a | : 

4 f § 3; debugging aid and is not part of the DECnet product. : 

7 728 ;- ; 

00000040 ti f : BUF _SIZ = 64 ; Must divide evenly into a block : 

7 731 NETSJNX_CO:: ; Journalling co-routine ; 

orn" 1 rs § JSB 4 a ; Find the journal bufer : 

ae 7 BNEQ 10$ ; If NEQ the sperm) ne is active : 

0 43 4 : RSB ; Return with low bit clear in RO : 

OOOO'CF 17 ? 4 $ 10$: JMP JNX_ CALLBACK ; Setup record and call back user : 

031 738 - SAVE_PSECT : 

00000 oe -PSECT NET_LOCK_CODE,NOWRT,GBL : 

0000 741 JNX_CALLBACK: : 

50 8EDO 44 re POPL RO 3; Get caller's address, cleanup stack ; 

3— BB 000 74 PUSHR #*M<R1,R2,R3,R4,R5> ; Save regs . 

0005 744 ASSUME BUF SIZ EQ 64 ; 

7E 7¢ 0005 745 CLRQ =(SP ; Create/zero nonpaged scratch buffer : 

, ae: 4 746 CLRQ (SP) : 

7E 7¢ 009 747 CLRQ -(SP) : 

7E 7C O0008 748 CLRQ -(SP) : 

7E 7C Q00D 749 CLRQ -(SP) 3 

re PE Goll 8 ftra | =¢8P) 

51 5E p0 0013 P36 MOVL SP,R1 ; Point to data buffer ; 

7E 00000000'°GF 7D 0016 75 MOVG G*EXESGQ_SYSTIME,-(SP) : Store timestamp in first 8 bytes ; 
50 DD 001D 754 PUSHL RO ; Push caller's address ; 

50 01 obO0 OO1F 755 MOVL #1,R0 ; Set success : 

9 16 0022 756 JSB a(Sp)+ : Call back for data ; 

52 04 ag 9E 0024 757 MOVAB 4(SP),R2 : Get ‘buffer’ address ; 

a 2 C2 0028 758 SUBL ° ; Get number of bytes moved ; 
00000040 8F 51 D1 0028 759 CMPL R1 ,#BUF _SIZ : Too much data moved? : 
04 18 0032 760 BLEQU 208 ; If LEQU then okay : 

0034 tee BUG_CHECK NETNOSTATE,FATAL ; Too much journalling data ; 

8 764 208: DSBINT #NETSC_IPL ; Synchronize with NETDRIVER and 1/0 : 

—E 765 ; data base changes. . 

31 19 0 76 BSBB F IND_JNX ; JNX buffer still around? 3 

3 1 4 76 BEQL 3 ; If not, we're done : 

53 6 DO 004 76 MOVL (RO) ,R3 : Get pointer to free area | 3 

06 AO 0040 BF 861 4 6 CMP SOUF _S1Z.6(RO) : Enough bytes left ; 
a ¥ 048 770 BGEQU 308 ; If LEQU then no ; 

AO o0e8 FO OA bee 771 SUBW #BUF _SI1Z,6(RO) ; Take the space : 
3000 40 BF C¢ 05 ure ADOL #BUF_SIZ, (RO) ; Update pointer 3 

6 6 0040 BF 2 OSA 77 MOVCS #BUF_SIZ,(R2),(R3) ; Enter JNX record 3 
$9 774 30$: ENBINT ; Restore IPL, fix stack 3 

0 a 6 775 POPL RO ; Get return address 3 

5E 00000040 BF C Beee ore ADDL #BUF _SIZ,SP : Fix stack F 
—E BA 006D 77 POPR #*M<R1,R2,R3,R4,R5> ; Restore regs : 


4 
¥54~000 NETSJNX-CO Loop and. sc ,gubraut nes "SrSEb=19B. 82:37:29 ENETKCE. SRESNEv TN. aR; 1 


60 17 ‘i 8 Jmp (RO) ; Return 

1 780 FIND_JNX: 
50 ooee'e 9 71 MOVL WEISEL _PTR_VCB.RO ; Get _RCB 
4 2 BEQ 10$ ; If EQL then none 
50 18 AO 7 MOVL RCBSL_PTR_JNX(RO) ,RO ; Get journal buffer (0 if none) 
7C = 784 108: RSB 
3970 785 
0000031 786 «RESTORE 
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4-000 , ep Be §3:33 525 CIN age 92, | 


Pool allocation routines “-SEP-19 NETACP.S RCINE TTRN.MAR; 1 6) 
} 789 +e -SBTTL Pool ailocation routines ; 
1 790 ; *NETSALONPGD.7 - Allocate and zero a block of nonpaged B seocoge pool : 
1 791 ; NETSALONPAGED - Allocate a block of nonpaged systes = poe ; 
1 792 ; NETSALLOCATE = Allocate a process space memory b ‘ 
: a 3 NETSDEALLOCATE= Deallocate memory to either th... or non-paged pool ’ 
; oe? >; FUNCTIONAL DESCRIPTION: : 
8 : 197 ; A block is allocated and the block header is initialized as follows: : 
1 799 3 $e eer ren emcee meaner ocnoere2ca eees nr oeeen = + ‘ 
1 00 ; : ; : 
1 01 e fone ee ere emer e = eS oe om we we ee oe > 
ge a : 3 3 
1 0 3 Se ee enema + ° 
031 04 ; : 0 iDYNSC “NET! size ' ; 
0 1 05 3 teem oan ay wenn moan tea eee ee ewer eee Sa e 
031 36 g : ; ; 
031 07 ; H ' ‘ 
031 08 ; ' ‘ ‘ 
031 09 ; ‘ 
031 10 ; : 
031 811 ; INPUTS: Ri = Block size : 
0 1 \¢ | acne g 
031 1 - SAVE _PSECT : 
0000 ee 13 -PSECT NET_LOCK_CODE,NOWRT,GBL : 
007D 16 NETSALONPGD 7:: ; Allocate/zero non-paged pool ; 
13 10 0070 HEA BSB86 NE TSALONPAGED ; Get the block ° 
OF 50 E€9 QO7F 18 BLBC RO,10$ ; Br on error ; 
51 C Ae bogs 819 SUBW #12,R1 ; Get number of bytes to zero : 
F BB 008 4 0 PUSHR #*M<RO,R1,R2,R3,R4,R5> 3; Save regs : 
Oc A2 51 00 OC A2 90 2¢ 0087 1 MOVCS #0. 12¢R2) #0 .R1 12¢R2) : Zero the block F 
F BA OO8F : ¢ POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore regs ; 
05 bat ? 10$: RSB 3; Done : 
0092 5 NETSALONPAGED:: ; Allocate non-paged memory : 
3A «SCoOéaBB 93 6 PUSHR #*M<R1,R3,R4,R ; Save regs : 
00000000'GF 16 0094 7 JSB G-EXESALQNONPAGED ; Get the block 3 
3A BA OQO9A 3 POPR 1,R3,R4,R5> ; Restore regs . 
7A 8611+ +Q09C BRB Init. 3 
Oo «B31 
b9E ¢ NETSALLOCATE:: ; Allocate virtual memory : 
51 OF CO + ADDL #MASK ,R1 ; Round size to next boundary 3 
51 OF CA A 4 BICL #MASK, *R1 5 : 
04 12 ae 5 BNEQ 5$ : If EQL bad allocation request : 
ni $ BUG_CHECK BADALORQSZ,FATAL ; Bad allocation request size : 
7E 53 7D AA § 5$: MOVQ R3,-(SP) ; Save regs 3 
53 O000'CF 9E O0AD 840 MOVAB_ NETSGL_MY_POOL.R3 : Point to memory Listhead ; 
¢ 41 DSBINT (R3)+ : Synchronize pool : 
00000000'°GF 16 4g JS G*EXESALLOCATE ; Allocate block 3 
of rt ENBINT 3 : 
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- ool allocation routines -SEP- 721: 
voa 000 Pool allocati ti g Ep 1986 83: $3 65 NETACP.SRCINET TRN. MAR: 1 . o> 
C1 45 ; If there was insufficient memory in the virtual pool, then : 
3 rk ; allocate more virtual address space and add it to the pol. | ; 
5E 8 C C1 48 Sup. «#8, SP ; Allocate guadword on stack : 
4B E C4 4 BLBS RO,20$ ; If insufficient memor | ; 
50 —E 0D C7 50 VL SP,RO ; Set address of scratch quadword ‘ 
1 0D CA 51 PUSHL R1 ; Save length of requested block ‘ 
cc 26 SEXPREG_S - ; 
cc 5 “PAGCNT = #<POOL -EXTEND+511>/512, - ; no. of pages ‘ 
cc 54 RETADR = (RO) : Address for pool address ‘ 
31 24 8EDO dB 55 POPL R ; Restore tength of requested block ‘ 
E9 pbs 26 BLBC RO,20$ :; If error, then nothing more to give : 
sO” 6— DO O0E 5 MOVL  (SP),RO ; Get address of new storage : 
08 D4 O0E4 58 CLRL (RO) ; Zero Link pointer in free block ; 
04 AO 0002800 8F 00 O0E6 59 OVL #POOL_EXTEND,4(RO) ; Set Length of free block ; 
5 QOOO'CF 9E ore 60 OVAB  NETSGC_MY_POOL,R3 ; Point to memory listhead : 
OF 61 DSBINT (R3)+ 3; Synchronize pool ; 
2g 3 DO O0F9 566 15$: MOVL R3,R2 ; Save address of previous free block : 
63 00 OOFC $e MOVL (R$) ,R3 ; Get address of next free block ‘ 
F8 12 OOFF 64 BNEQ 15$ ; Loop until end of free List found : 
62. 50 00 0101 865 MOVL RO, (R2) ; Append new Sterepe to end of | ° 
53. QO04'CF 9E 0104 866 MOVAB NETSGL_MY_POOL+4,R3 : Point to memory Listhead : 
00000000'GF 16 3109 $04 1. G*EXESALLOCATE : Try to altocate block once more : 
2 ge cO Bite 869 208: ADDL 4#8,SP ; Pop scratch quadword off stack : 
5 —E 7D ae af mova (SP)+,R3 ; Restore regs : 
O18 Ha ; Initialize the storage ; 
0B 50 9 6118 874 INIT: BLBC  R0,10$ ; If LBC error ; 
62 C 0118 875 CLRQ (R2) :; Clear the first 2 header longwords : 
08 A2 51 BO 0110 He MOVW R1,1RP$W_SIZE(R2) Enter size $ 
OA A2 17) 9B 0121 77 MOVZBW #DYNSC NET, IRP$B_ TYPE(R25 Enter default type, clear 11th byte : 
0 O18 «879 tp 
52 D4 4 6 880 10$: CLRL R2 ; Nullify block pointer ; 
05 0128 He RSB ; 3 
0129 36 ; 
o199 Baa ; 
; > He ; NETSDEALLOCATE - Deallocate memory : 
; 9 $i ; INPUTS: RO - Address of block to be deallocated : 
1 3 39 NETSDEALLOCATE: : : 
50 05 0129 90 TSTL ; Is there a block to deallocate? 3 
5¢ 613) «(0128 91 BEQL 70$ :; If EQL then there's no bloc 3 
04 AO 6€ 00 012d 5 MOVL (SP) ,4(RO) 3; Save caller's address for feurnel ling 3 
le be 131 89 PUSHR #*M<R1,R2,R3,R4> : ; 
5 D 1 94 TSTL R : Is block tres system pool? ; 
B 19 O01 95 BLSS 50$ ; If LSS 7 3 
50 F D3 01 38 BITL #MASK ,RO ; Block aligned on boundary? : 
C 12 QI3A 9 BNEQ : If NEQ no - bad Geol loce ion 3 
51 O08 AD 3C O135¢ 38 MOVZWL et ry ug ise Ces. RI ; Get size of block bytes 3 
3} F ¢O 109 9 ADDL ; Round size up to ears oundary : 
1 OF CA 14 0 BICL PRASK. *R1 ; Truncate size back to multiple | 3 
4 12 0146 1 BNEQ 208 ; If NEQ okay 3 
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ool allocation routines -SEP- tél: NETACP.SRCINETTRN.MAR; 1 (16) 
W4~000 Pool allocation rout! Breer obe bsiSrico EAR TNCe. cae sue ys oe ¢ 
148 10$: BUG ‘a Peer at ee FATAL ; Bad deallocation request size or address 
53 OO00'CF 9€ : § 85: oye. Me tas POOL, R3 $ ae $e sonore Listhead 
3 Synchronize poo 
00000000"GF 16 01 5 JSB STP spEALLOCATE 3; Deallocate the block 
1 ENBINT 5 pestere IPL 
3 11 016 ops 3; Continue 
54 16 8 50$: MOVL RO,R4 3; Save . fer a 
g fF‘ 16 BSBW net NX_CO ; See i ournat ting, is enabled 
1350 € 16 10 BLBC R ; If LBC then no 
81 QOO000DE 8F »? 1 11 MOVL #°X<DED, (R1)+ ; Enter record type 
1 4 1 \¢ MOVL R4,(R1)+ ; Enter buffer address 
1 66 2 7 1 MOVG = (R4), (R14 : Enter buffer header 
81 O08 AG 7D 01 14 MOVa = B(R4S, (R1)+ : 
9E 8 1 915 $B a(SP)+ ; Return to co-routine to fill journal 
50 54 OD 1 318 55$: MOVL R4,RO ; Restore buffer address 
00000000'GF 16 01 91 SB G“EXESDEANONPAGED + Deallocate and return 
1€ BA 1 318 G08: POPR #*M<R1,R2,R3,R4> 
05 4 4h 0$: RSB 
03 921 «RESTORE 
03 g ¢ 
03 923. 
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NETTRN 
Symbol table 


cc 


BUF 

Bes: SBADALOROS? 
BUGS$_BADDALRQSZ 
BUG TNOBUF 


U 
BUGS" NETNOSTATE 
CMPTTM 321 
tnrs -ABVANCE 
CNF$_Q 
CNFS_ ite _CURR 
CNFS-TAKE_PREV’ 


COMS 
DLESDISPATCH 
DY x 


ee es ee ee Oe ee 
Si 
' 
a 
= 
2 
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IRPSY~F CODE 
IRPSV_ Puvsio 
IRPSW_F 

IRPSw_ size 
IRPSW"S 

JNX CR LOACK 


NETSACP_CANCEL 
NE TSALLOCATE 
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Reeenreee 
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NETSC_ACT_TIMER 
NE TSC_DYN_WQE 
NETSC_EFN_ASYN 
NETSC_EFN_WAIT 
NETSC_IPL 
NETSC_MAXACCFL 
WE TSC BARL INNAR 
NETSC_MAX 
NETSC“MAXNODNAM 
NE TSC_MAXOBJNAM 
NETSC_MAX_AREAS 
NE TSC BAK. LINES 
NETSC_MAX_NCB 
NETSC RAK. NODES 
NETSC_MAX_OBJ 
NETSC_RAK, wae 
NETSC_MINBUF SIZ 
NETSC_TID_ACT 
WETSC TID. RUS 
NETSC_TIDL XRT 
NETSC_TRCTL_CEL 
NETSC_TRCTL_OVR 
NETSC_UTLBUFSIZ 
NE TSDEALLOCATE 
NETSDEC_ TRANS 
NETSDISPATCH 
SOLL 
NETSGETOTLBUF 


WETS6Q WOE WORK 
NETSM MAXUNKASK 
NETSPROC_XwB 


NETSV_UTLBUF 
NET_TIMER 
NSPSC_EXT_LNK 
NSPSe “MAXADR 
POOL_EXTEND 
PRS$_TPL 
PROE IRP 
RANG 
RCB$B_AQB_CNT 
$L tere JNX 


RCB 
SET_T 
aig. 
S$ iLL LOF UNC 
SSS$=N 
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Reeeeenre 
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Reet 
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NETTRN 16-SEP-1984 01:29:2 AX/VMS Macro V04-00 Page 26 
Symbol table o7$Eb2 38 53:49 ENETACP. SREINETTRN. MAR; 1 . 8) 
SYSSCANTI eteeeeee GX 4 
SYSSEXPR eeereree GX 5 
SYSSHIBER eeereeee GX 4 
SYSSPURGW eereeere GX 4 
SYSSSETIMR eeeeerer GX 4 
SYSSWAKE tereneer GX 4 
TIMER_ACTION 8 164 R 4 

IMER_EXP 16 R 4 
TRSC_MAXHDR = 1¢ 
TRSC_NI_ALLEND1 = 04 AB 
TRSC"NI~ALLEND2 . 00 
TRSC_NI_ALLROU1 = 8 ae 
TRSC “NI ~ALLROUZ : 0 
TRSC_NI_PREF IX = 40QAA 
TRSC_NI PROT = 00000360 
TRSC~PRT_ECL = 0000001 
TRSC~PRI-RTHRU = 0000001F 
wAl 0000114 R 04 
WQESALLOCATE 4 54 RG 04 
WOESB_EVT = 0000001 
WOESB_S = 00000008 
WOESB_TYPE = 0000000A 
WOESCANCEL _TIM 4 4 BEY RG = 04 
WOESC_EXT CEN = 00000008 
WOESC"LENGTH a si 4 4h 
WQE$C_SUB_ACP = 00000001 
WQESC_SUB_AS = 00000003 
WQE$C_SUB_BAS = 00000000 
WQESC_SUB_MBX = 00000005 
WOESC_SUB_TIM = 00000007 
WOESC_TMR_LEN 44 4038 
WOESDEALLOCATE 0000 RG 04 
WOE SF ORK O0002A7 RG 04 
WQESINSQUE 464 9 RG 04 
WQESL_ACTION = 0000000C 

ESL_BLI = 00000004 
WQESL_EVL_PKT = 00000018 
WOESL_FLIAK = s'4's s 

ESL_PM1 = 0000001 

ESL_PM2 = 00000014 
WQE$Q DUE TIME Bh5 4 

ESREMQ 3 RG rf 
WOESRESET_TIM 0 RG 4 
WOESTIMERTAST 1B2 RG 04 
WOESW_ADJ_ INX = . 
WOE SW"SIZE = 44 

$$ = QOOOOOEF 
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Psect synopsis =SEP=1 NETACP.S SNETTRN. MAR; 1 (16) 


teereceecce aeaeooee > 


: ; Psect synopsis ! 


sean eeceseses} 


PSECT name Allocation PSECT No. Attributes 
ABS . 8 000000 <( 0.) 00 ¢ O.) NOPIC uUSR CO ABS LCL wee NOEXE NORD NOWRT NOVEC BYTE 
$aBs$ 0000 f ( 466.) 0O1¢ #1.) NOP USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET_PURE 00000 ( 8.) ¢ ( s°i NOPIC USR CON REL LCL NOSHR NOEXE PD NOWRT NOVEC LONG 
NET_ IMPURE 0000 ( _84.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC LONG 
NET_ CODE 4494 12. ¢ (36-3 4 ( 6.) NOPIC USR CON REL LCL WN EXE RD NOWRT NOVEC BYTE 
NET-LOCK_CODE OOO1BA ( 394.) 05 ¢ 5.) NOPIC  USR REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 


don mamocenne See Oe Ee} 


: Performance indicators ! 
+ 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.15 00:00:00.63 
Command processing 124 sb Sd 00:00:04.46 
Pass 534 00: ND +86 Bs SE 3 
Symbol table sort 9 bs SY 00:00:05.28 
Pass 2 17 00:00:03.88 00:00:09.46 
Symbol table output 20 BP 82:20. 1? 00:00:00.31 
Psect synopsis output 00:00:00.03 00:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 886 00:00:27.57 00:01:01.37 


105928 bytes (207 pages) of virtual memory were used to buffer _the intermediate c 

There were 100 pages of symbol table space to to hold 1779 non-local and so local symbols. 
3 source Lines were read in Pass 1, producing 25 object records in Pass 2. 

52 pages of virtual memory were used to define 48 macros. 


Sere etree ener meee econ en: wen} 


emer we mene ne eam eer c ee meme wad 


Macro Library name Macros defined 
$255SDUA28: CSHRLIB set A hb 1 0 
$255$DUA heuat ts 0813 EF .MLB;1 8 

-} 2 SDUACB: (NETACP. OBJ NE TORY: MLB;1 

_8255SDUA : ENE TACB 08 NET=MLB; 1 9 

mittee UA MLB; 1 \e 
“$255$DUA28 sea Tt MLB; 2 1 
TOTALS (all Libraries) 39 


| 
| 
| 
The working set Limit was 1800 pages. 
| 
2052 GETS were required to define 39 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:NETTRN/OBJ=OBJ$:NETTRN MSRC$:NETTRN/UPDATE=(ENHS:NETTRN) ¢EXECMLS/LIB+LIBS:NET/LIB+LIBS:NETORV/LIB+SHR IBS:EVCDEF/LIB+ 
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